home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / batch / strings2.zip / NOIZE.BAT < prev    next >
DOS Batch File  |  1992-11-11  |  1KB  |  57 lines
  1. @ECHO OFF
  2. REM ------------------------------------------------------------
  3. REM NOIZE.BAT - by Neil Rubenking
  4. REM
  5. REM Enter a frequency as its command line parameter and it
  6. REM starts a note of that frequency.  Enter NO parameter and it
  7. REM shuts the speaker up.
  8. REM ------------------------------------------------------------
  9. IF '%1'=='' GOTO Stop
  10. STRINGS inv=DIV 1193180,%1
  11. STRINGS inv=CONVERT %inv%,16
  12. STRINGS inv=RIGHT 0000%inv%,4
  13. STRINGS Hi=LEFT %inv%,2
  14. STRINGS Lo=RIGHT %inv%,2
  15. STRINGS /b16 OUT 43,B6
  16. STRINGS /b16 OUT 42,%lo%
  17. STRINGS /b16 OUT 42,%hi%
  18. STRINGS /b16 AL=IN 61
  19. STRINGS /b16 AL=OR %AL%,3
  20. STRINGS /b16 OUT 61,%AL%
  21. GOTO End
  22. :Stop
  23. STRINGS /b16 AL=IN 61
  24. STRINGS /b16 AL=AND %AL%,FC
  25. STRINGS /b16 OUT 61,%AL%
  26. :End
  27. SET al=
  28. SET inv=
  29. SET hi=
  30. SET lo=
  31.  
  32. @ECHO OFF
  33. REM ------------------------------------------------------------
  34. REM MARY.BAT - by Neil Rubenking
  35. REM
  36. REM Plays a familar tune
  37. REM ------------------------------------------------------------
  38. STRINGS /I /Q
  39. CALL NOIZE 330
  40. CALL NOIZE 294
  41. CALL NOIZE 262
  42. CALL NOIZE 294
  43. CALL NOIZE 330
  44. CALL NOIZE 330
  45. CALL NOIZE 330
  46. CALL NOIZE 330
  47. CALL NOIZE 294
  48. CALL NOIZE 294
  49. CALL NOIZE 294
  50. CALL NOIZE 294
  51. CALL NOIZE 330
  52. CALL NOIZE 392
  53. CALL NOIZE 392
  54. CALL NOIZE 392
  55. CALL NOIZE
  56. STRINGS /U /Q
  57.